home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / MacHaskell 2.2 / progs / demo / X11 / animation / seaside.hs < prev    next >
Encoding:
Text File  |  1994-09-27  |  727 b   |  26 lines  |  [TEXT/YHS2]
  1. module Seaside (main) where
  2.  
  3. import Animation
  4. import Seafigs
  5.  
  6. seaside :: Movie
  7. seaside = rOVERLAY [blue_sky,
  8.             apply (bPar [up,cw,movto (repeat botm)]) sun,
  9.             apply right clouds,
  10.             apply (bPar [right,bigger]) gull,
  11.             apply (bPar [right,right,bigger]) gull,
  12.             apply (bPar [up,up,right,bigger]) gull,
  13.             apply (bPar [up,right,right,right]) gull,
  14.             windm,
  15.             apply (mov (repeat botm)) palm,
  16.             man_and_vm
  17.                   ]
  18.     where man_and_vm = rBESIDE2 [manfig, vm]
  19.               manfig = apply left (apply (mov (i (700,0)))
  20.                               man)
  21.           windm = apply (mov (i (500,0))) windmill             
  22.  
  23.  
  24. main = getEnv "DISPLAY" >>=
  25.        (\ host -> displaym host 30 (map (flipy_Pic 500) seaside))
  26.